library(readr)
library(tibble)
library(tidyr)
library(dplyr)
library(tidytext)
library(ggplot2)
library(tm)
library(topicmodels)
library(stringr)
library(koRpus)
weeknotes_ryan <- as_tibble(read_csv('weeknotes_ryan.csv', col_names = FALSE))
names(weeknotes_ryan) <- c( "s02e01",
"s01e09",
"s01e08",
"s01e07",
"s01e06",
"s01e05",
"s01e04",
"s01e03",
"s01e02",
"s01e01"
)
weeknotes_ryan %>%
gather("episode", "text", 1:10) -> tidy_notes
tidy_notes
tidy_notes %>%
mutate(text2 = gsub("//.", " ", text)) -> tidier_notes
tidy_notes %>%
mutate(text2 = gsub("[.]", " ", text)) -> tidier_notes
tidier_notes %>%
unnest_tokens(word, text2) -> tidy_tokens
tidy_tokens